pkgs = c(
    "here",
    "ggplot2",
    "data.table",
    "ggokabeito",
    "modelsummary",
    "ipumsr",
    "marginaleffects",
    "patchwork",
    "tinytable",
    "survey"
)
sapply(pkgs, require, character.only = TRUE) |> suppressPackageStartupMessages()

theme_vab <- function() {
    theme_minimal() +
    theme(panel.grid.minor = element_blank(),
          panel.grid.major = element_blank(),
          strip.background = element_blank()
        #   text = element_text(family = "Times New Roman"))
          )
}
theme_set(theme_vab())

tol_palette <- c(
  "#CC6677", # rose   7
  "#332288", # indigo 1
  "#DDCC77", # sand   6
  "#117733", # green  4
  "#88CCEE", # cyan   2
  "#882255", # wine   8
  "#44AA99", # teal   3
  "#999933", # olive  5
  "#AA4499", # purple 9
  "#DDDDDD") # grey   10)
